Option Explicit
Sub C_Sample017()
    Dim myRng As Range
    Set myRng = Range("A1:A3")				'Nxs
    'ǳƨ즹
    MsgBox "b~س]wu"
    myRng.BorderAround xlContinuous, xlMedium	']wu
    Set myRng = Nothing						'
End Sub
